Подсчитать количество шипящих букв в слове- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT a$
b=LEN(a$)
k=0
FOR i=1 TO b
s$=MID$(a$,i,1)
SELECT CASE s$
CASE "ш":k=k+1
CASE "ч":k=k+1
CASE "щ":k=k+1
CASE "ц":k=k+1
END SELECT
NEXT i
PRINT(k)
1
2
3
4
5
6
a$ = "Шипящие"
k = 0
FOR i = 1 TO LEN(a$)
IF INSTR("ЦЧШЩцчшщ", MID$(a$, i, 1)) THEN k = k + 1
NEXT i
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment